home *** CD-ROM | disk | FTP | other *** search
Modula Implementation | 1995-11-25 | 589 b | 24 lines |
- IMPLEMENTATION MODULE MousePosition;
-
- FROM SYSTEM IMPORT ADR;
- FROM AES IMPORT GrafMouseKeyboardState,ApplTPlayback,WindowFind;
-
- PROCEDURE GetMousePos(VAR MouseX, MouseY, Window : INTEGER);
- VAR Dummy : INTEGER;
- BEGIN
- GrafMouseKeyboardState(MouseX,MouseY,Dummy,Dummy);
- Window:=WindowFind(MouseX,MouseY)
- END GetMousePos;
-
- PROCEDURE SetMousePos( MouseX, MouseY : INTEGER);
- VAR Play : ARRAY [0..3] OF INTEGER;
- BEGIN
- Play[0]:=0;
- Play[1]:=2;
- Play[2]:=MouseX;
- Play[3]:=MouseY;
- ApplTPlayback(ADR(Play),1,1);
- END SetMousePos;
-
- END MousePosition.
-